home *** CD-ROM | disk | FTP | other *** search
/ Horoscope Companion: Scorpio / Horoscope Companion: Scorpio.iso / mac / SCORPIO / Scorpio / Scorpio.DXR / 00001.ls next >
Encoding:
Text File  |  1996-10-03  |  425 b   |  17 lines
  1. on startMovie
  2.   global gWhichVideoSprite
  3.   clearGlobals()
  4.   set gWhichVideoSprite to 1
  5.   cursor(200)
  6. end
  7.  
  8. on hCheckArcMediaVideoTime
  9.   global gWhichVideoSprite
  10.   if the movieTime of sprite gWhichVideoSprite = trackStopTime(sprite(gWhichVideoSprite), 1) then
  11.     cursor(4)
  12.     set the movieTime of sprite gWhichVideoSprite to 0
  13.     set the movieRate of sprite gWhichVideoSprite to 0
  14.     play movie "CONTENTS.DIR"
  15.   end if
  16. end
  17.